Option Explicit
'зǼҲ
Dim myAppT As Double
Dim myAppL As Double
Dim myAppH As Double
Dim myAppW As Double
Dim myAppS As Double
Dim myAppF As Boolean
Sub myLockon()
    mySizeLock True
End Sub

Sub myLockoff()
    mySizeLock False
End Sub

Sub mySizeLock(myFlg As Boolean)
    With Application
        If myFlg Then
            myAppT = .Top
            myAppL = .Left
            myAppH = .Height
            myAppW = .Width
            myAppS = .WindowState
            myAppF = True
            .OnTime Now() + TimeValue("00:00:01"), "myAppSizeLock"
        Else
            myAppF = False
        End If
    End With
End Sub

Sub myAppSizeLock()
    Do While myAppF = True
        DoEvents
        With Application
        If .WindowState <> myAppS Then .WindowState = myAppS
            If myAppS = xlNormal Then
            If myAppT <> .Top Then .Top = myAppT
            If myAppL <> .Left Then .Left = myAppL
            If myAppH <> .Height Then .Height = myAppH
            If myAppW <> .Width Then .Width = myAppW
            End If
        End With
    Loop
End Sub
